home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / pc / media / solaris.dxr / Internal_54_online Updates.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  468 b   |  18 lines
  1. on mouseUp
  2.   alertObj = new(xtra("MUI"))
  3.   alertInitList = [#Buttons: #YesNo, #title: "Confirmation", #Message: " Go Online For Updates? ", #movable: 0, #default: 6, #Icon: #question]
  4.   if objectp(alertObj) then
  5.     result = alert(alertObj, alertInitList)
  6.     case result of
  7.       1:
  8.         baOpenURL("http://movies.warnerbros.com/pub", "normal")
  9.       2:
  10.         nothing()
  11.       otherwise:
  12.         nothing()
  13.     end case
  14.   else
  15.     alert("No MUI Xtra")
  16.   end if
  17. end
  18.